init_numbers(btex-etex, btex1etex, btex ×10etex, btex-etex, btex2etex); Fe_base := btex 10 etex;